1 REM COPYRIGHT 1990, COMPUTE PUBLICATIONS INT'L, LTD. ALL RIGHTS RESERVED.
10 V=53248:POKEV,0:POKEV+1,0:POKEV+21,3:POKEV+23,0:POKEV+29,0:POKE53287,1
20 POKE2040,13:X=RND(-TI)
30 FORI=832TOI+63:POKEI,0:NEXT
40 FORI=836TO886STEP3:POKEI,28:NEXT
50 FORI=859TO864:POKEI,255:NEXT
60 X=11:PRINT"[147]";:POKE53280,0:POKE53281,0
70 DIMV$(25),T(X,X)
80 V$(0)="":FORI=1TO24:V$(I)=V$(I-1)+"":NEXT
90 GOSUB1170:GOSUB1380:PRINTV$(17)TAB(26)"[159]WIRING BOARD"
100 PRINTTAB(26)"PLEASE WAIT..."
110 Y1=1:Y2=X
120 X1=INT(RND(1)*X)+1
130 T(Y1,X1)=2:O1=X1:U1=Y1
140 XX=INT(RND(1)*5)+4
150 IFXX=4THENX1=X1-1
160 IFXX=5THENX1=X1+1
170 IFXX=6THENX1=X1-1:Y1=Y1+1
180 IFXX=7THENY1=Y1+1
190 IFXX=8THENY1=Y1+1:X1=X1+1
200 IFX1>XORX1<1ORY1>XORY1<1THENX1=O1:Y1=U1:GOTO140
210 IFT(Y1,X1)=0ORT(Y1,X1)=2THENT(Y1,X1)=2:GOTO230
220 X1=O1:Y1=U1:GOTO140
230 IFY1<>XTHEN130
240 X2=INT(RND(1)*X)+1:IFT(Y2,X2)THEN240
245 WW=0:T(Y2,X2)=5
250 O1=X2:U1=Y2
260 XX=INT(RND(1)*5)+4
270 IFXX=4THENX2=X2-1
280 IFXX=5THENX2=X2+1
290 IFXX=6THENX2=X2-1:Y2=Y2-1
300 IFXX=7THENY2=Y2-1
310 IFXX=8THENY2=Y2-1:X2=X2+1
320 IFX2>XORX2<1ORY2>XORY2<1THENX2=O1:Y2=U1:GOTO260
330 IFT(Y2,X2)=0THENT(Y2,X2)=5:GOTO370
340 IFT(Y2,X2)=2THENWW=WW+1
350 IFWW>5THENY2=X:X2=INT(RND(1)*X)+1:GOTO240
360 X2=O1:Y2=U1:GOTO260
370 IFY2<>1THEN250
380 FORI=1TOX:FORJ=1TOX:IFT(I,J)=2ORT(I,J)=5THEN420
390 UX=RND(1):IFUX<.2THENT(I,J)=2:GOTO420
400 IFUX>.8THENT(I,J)=5:GOTO420
410 T(I,J)=0
420 NEXTJ,I
430 S1=1:S2=1:T1=X:T2=X
440 POKE198,0:PL=INT(RND(1)*2)+1
450 C=0:GOSUB1330
460 IFPL=2THEN710
470 U1=S1:U2=S2
480 A=S1:B=S2:POKE53287,2:IFC>2THEN700
490 POKEV,B*2*8+20:POKEV+1,A*2*8+48:OA=A:OB=B
500 GETA$
510 IFA$=""THENB=B+1:GOTO590
520 IFA$="[157]"THENB=B-1:GOTO590
530 IFA$="[145]"THENA=A-1:GOTO590
540 IFA$=""THENA=A+1:GOTO590
550 IFA$=CHR$(13)THEN610
560 IFA$="[136]"THENPL=0:GOTO1040
570 U=PEEK(56320):GOSUB1580:IFA$<>""THEN510
580 GOTO500
590 IFA<1ORB<1ORA>XORB>XTHENA=OA:B=OB:GOTO490
600 GOTO490
610 IF(S1=1ANDA>1)OR(S1<>1)THEN630
620 S1=A:S2=B:GOTO650
630 IFABS(S1-A)>1ORABS(S2-B)>1THEN490
640 S1=A:S2=B
650 POKEV,0:POKEV+1,0
660 I=S1:J=S2:GOSUB980:IFT(I,J)=5THEN700
670 IFT(I,J)=0THENGOSUB1520:GOSUB950:S1=U1:S2=U2:C=C+1:GOTO470
680 GOSUB1500:GOSUB950:IFS1<XTHEN470
690 WW=1:GOTO1040
700 PL=2:S1=1:S2=1:FL=1:GOSUB1540:GOSUB950:GOTO450
710 V1=T1:V2=T2
720 A=T1:B=T2:POKE53287,5:IFC>2THEN940
730 POKEV,B*2*8+20:POKEV+1,A*2*8+48:OA=A:OB=B
740 GETA$
750 IFA$=""THENB=B+1:GOTO830
760 IFA$="[157]"THENB=B-1:GOTO830
770 IFA$=""THENA=A+1:GOTO830
780 IFA$="[145]"THENA=A-1:GOTO830
790 IFA$=CHR$(13)THEN850
800 IFA$="[136]"THENPL=0:GOTO1040
810 U=PEEK(56320):GOSUB1580:IFA$<>""THEN750
820 GOTO740
830 IFA<1ORB<1ORA>XORB>XTHENA=OA:B=OB:GOTO730
840 GOTO730
850 IF(T1=XANDA<X)OR(T1<>X)THEN870
860 T1=A:T2=B:GOTO890
870 IFABS(T1-A)>1ORABS(T2-B)>1THEN730
880 T1=A:T2=B
890 POKEV,0:POKEV+1,0
900 I=T1:J=T2:GOSUB980:IFT(I,J)=2THEN940
910 IFT(I,J)=0THENGOSUB1520:GOSUB950:T1=V1:T2=V2:C=C+1:GOTO710
920 GOSUB1500:GOSUB950:IFT1<>1THEN710
930 WW=2:GOTO1040
940 PL=1:T1=X:T2=X:FL=1:GOSUB1540:GOSUB950:GOTO450
950 IFI=7THENPRINTV$(I*2-1)TAB(40+J*2)"[176][174][157][157][173][189]":GOTO970
960 PRINTV$(I*2)TAB(J*2)"[176][174][157][157][173][189]";
970 RETURN
980 IFT(I,J)=2THENPRINT"";
990 IFT(I,J)=5THENPRINT"";
1000 IFT(I,J)=0THENPRINT"[144]";
1010 IFI=7THENPRINTV$(I*2-1)TAB(40+J*2)"[213][201][157][157][202][203]";:GOTO1030
1020 PRINTV$(I*2)TAB(J*2)"[213][201][157][157][202][203]";
1030 RETURN
1040 POKEV+21,0:FORI=1TOX:FORJ=1TOX:GOSUB980:NEXTJ,I
1050 GOSUB1540:IFPL=0THEN1120
1060 PRINTV$(10)TAB(5)"[146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1070 PRINTTAB(5)"[221]               [221]"
1080 PRINTTAB(5)"[221] [158]THE WINNER IS [221]"
1090 PRINTTAB(5)"[221] [158]PLAYER #"PL:PRINTV$(13)TAB(17)" !  [221]"
1100 PRINTTAB(5)"[221]               [221]"
1110 PRINTTAB(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1120 PRINTV$(17)TAB(26)"[146][159]PRESS ANY KEY"
1130 PRINTTAB(26)"  OR <FIRE> "
1140 PRINTV$(19)TAB(66)"TO PLAY AGAIN"
1150 GETA$:U=PEEK(56320):IFA$<>""ORU=111THENRUN
1160 GOTO1150
1170 A1$="[151] ":A2$=A1$
1180 TA(1)=0:TA(2)=2:TA(3)=5
1190 FORI=1TO11:A1$=A1$+"[176][174]":NEXT
1200 AA$=AA$+"[151] "+CHR$(13)+" [154]"
1210 FORI=1TO11:A2$=A2$+"[173][189]":NEXT
1220 GOSUB1290:GOSUB1380:GOSUB1540
1230 PRINTV$(17)TAB(26)"[159]PRESS ANY KEY"
1240 PRINTTAB(26)"TO BEGIN..."
1250 I=INT(RND(1)*11)+1:J=INT(RND(1)*11)+1:T(I,J)=TA(INT(RND(1)*3)+1)
1260 GOSUB980:T(I,J)=0:GETA$:U=PEEK(56320):IFA$<>""ORU=111THEN1280
1270 GOTO1250
1280 GOSUB1290:RETURN
1290 PRINT"[147][151]";
1300 FORI=1TO12:PRINT"  ";:NEXT:PRINT
1310 FORI=1TO11:PRINTA1$"[151] ":PRINTA2$"[151] ":NEXT
1320 PRINT"[151]";:FORI=1TO12:PRINT"  ";:NEXT:RETURN
1330 PRINTV$(17)TAB(26)"[146][176][192][192][192][192][192][192][192][192][192][192][174]"
1340 PRINTTAB(26)"[221]";:PRINT"";:IFPL=2THENPRINT"";
1350 PRINT" PLAYER"PL:PRINTV$(18)TAB(36)" [221]  "
1360 PRINTV$(19)TAB(66)"[146][173][192][192][192][192][192][192][192][192][192][192][189]":RETURN
1370 PRINTV$(3)TAB(28)"[146] [169]     [223]"
1380 H=26:PRINTV$(3)TAB(H)"[146]      [158][169]   [146][169]"
1390 PRINTTAB(H)"     [169]   [146][169]"
1400 PRINTTAB(H)"    [169]   [146][169]"
1410 PRINTTAB(H)"     [169]  [146][169]"
1420 PRINTTAB(H)"    [169]  [146][169]"
1430 PRINTTAB(H)"   [169]  [146][169]"
1440 PRINTTAB(H)"    [169] [146][169]"
1450 PRINTTAB(H)"   [169] [146][169]"
1460 PRINTTAB(H)"  [169] [146][169]"
1470 PRINTTAB(H)"  [169][146][169]"
1480 PRINTTAB(H)" [169][146][169]"
1490 PRINTV$(9)TAB(26)"[158][146]HIGH[169][146]VOLTAGE!":RETURN
1500 POKE54273,70:POKE54278,249:POKE54296,15:POKE54276,17:POKE54276,16
1510 FORDY=1TO500:NEXT:POKE54273,0:RETURN
1520 FORP=1TO15:POKE54296,15:POKE54296,0:NEXT:RETURN
1530 FORB=1TO250STEP3:POKE54273,B:NEXT:POKE54296,0:FL=0:RETURN
1540 FORP=54272TO54295:POKEP,0:NEXT:POKE54296,15
1550 POKE54277,8:POKE54278,255:POKE54276,23:A=6:POKE54287,A:IFFLTHEN1530
1560 FORB=1TO150:POKE54273,B:A=A-.01:NEXT
1570 GOSUB1500:POKE54296,0:RETURN
1580 A$="":IFU=111THENA$=CHR$(13)
1590 IFU=119THENA$=""
1600 IFU=123THENA$="[157]"
1610 IFU=126THENA$="[145]"
1620 IFU=125THENA$=""
1630 RETURN